home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program95
< prev
next >
Wrap
Text File
|
2007-02-28
|
696b
|
37 lines
0010 // PROGRAM 95
0020 //
0030 // COMELY KATE
0040 //
0050 // TO FACTORIZE A NUMBER
0060 //
0070 INPUT "GIVEN NUMBER ? ": NUMBER
0080 FACTORISE
0090 END
0100 //
0110 PROC FACTORISE
0120 N:=NUMBER
0130 DIVISOR:=2
0140 PRINT "THE PRIME FACTORS OF ",N," ARE"
0150 PRINT
0160 REPEAT
0170 REMAINDER:=N MOD DIVISOR
0180 IF REMAINDER=0 THEN
0190 PRINT DIVISOR;
0200 N:=N DIV DIVISOR
0210 ENDIF
0220 UNTIL REMAINDER<>0
0230 DIVISOR:=1
0240 REPEAT
0250 DIVISOR:=DIVISOR+2
0260 IF DIVISOR<=N THEN
0270 REPEAT
0280 REMAINDER:=N MOD DIVISOR
0290 IF REMAINDER=0 THEN
0300 PRINT DIVISOR;
0310 N:=N DIV DIVISOR
0320 ENDIF
0330 UNTIL REMAINDER<>0
0340 ENDIF
0350 UNTIL DIVISOR>N
0360 ENDPROC FACTORISE